home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of Shareware
/
Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso
/
mac
/
ZIPPED
/
DOS
/
NETWORKS
/
TPAPI.ZIP
/
NWDIR.PA1
< prev
next >
Wrap
Text File
|
1992-03-02
|
11KB
|
177 lines
{!R! FONT 15; FTMD 15; EXIT;}
{***************************************************************************}
{** Program : NWDIR **}
{***************************************************************************}
{** Version : 1.3 ** Started : 11/11/91 ** Ended : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : DIRECTORY **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** Provides Netware Directory Services **}
{** **}
{** **}
{** **}
{** This code is (c) 1991,1992 Covelli **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
UNIT NWDIR;
INTERFACE
USES
netware, nwvar;
TYPE
pDirectoryOBJ = ^DirectoryOBJ;
DirectoryOBJ = object (NetwareOBJ)
CONSTRUCTOR Init;
FUNCTION AddTrusteeToDirectory (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
ObjectID : OT_BinderyID; TrusteeRightsMask : BYTE) : WORD;
FUNCTION AllocPermanentDirectoryHandle (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
DriveLetter : CHAR; VAR NewDirectoryHandle,
EffectiveRightsMask : BYTE) : WORD;
FUNCTION AllocTemporaryDirectoryHandle (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
DriveLetter : CHAR; VAR NewDirectoryHandle,
EffectiveRightsMask : BYTE) : WORD;
FUNCTION ClearVolRestrictions (ConnectionID : WORD; VolumeNumber : BYTE; ObjectID : OT_BinderyType) : WORD;
FUNCTION CreateDirectory (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
MaximumRightsMask : BYTE) : WORD;
FUNCTION DeallocateDirectoryHandle (DirectoryHandle : BYTE) : WORD;
FUNCTION DeleteDirectory (DirectoryHandle : BYTE; DirectoryPath : PathNameType) : WORD;
FUNCTION DeleteTrustee (ConnectionID : WORD; DirectoryHandle : BYTE; DirectoryPath : PathNameType;
ObjectID : OT_BinderyID) : WORD;
FUNCTION DeleteTrusteeFromDirectory (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
ObjectID : OT_BinderyID) : WORD;
FUNCTION GetCurrentDirectory (DriveNumber : BYTE; VAR DirectoryPath : PathNameType) : WORD;
FUNCTION GetDirectoryHandle (DriveNumber : BYTE) : BYTE;
FUNCTION GetDirectoryPath (DirectoryHandle : BYTE; VAR DirectoryPath : PathNameType) : WORD;
FUNCTION GetDirEntry (ConnectionID : WORD; DirectoryHandle : BYTE;
VAR DirectoryEntry : NWDir_Entry) : WORD;
FUNCTION GetDirInfo (ConnectionID : WORD; DirectoryHandle : BYTE;
VAR DirectoryInfo : NWDir_Info) : WORD;
FUNCTION GetDriveInformation (DriveNumber : BYTE; VAR ConnectionID : WORD; VAR DirectoryHandle : BYTE) : BYTE;
FUNCTION GetEffectiveDirectoryRights (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
VAR EffectiveRightsMask : BYTE) : WORD;
FUNCTION GetEffectiveRights (ConnectionID : WORD; DirectoryHandle : BYTE;
DirectoryPath : PathNameType; VAR Rights : WORD) : WORD;
FUNCTION GetObjectDiskRestrictions (ConnectionID : WORD; VolumeNumber : BYTE; ObjectID : OT_BinderyID;
VAR VolumeRestriction, BlocksInUse : LONGINT) : WORD;
PROCEDURE GetSearchDriveVector (VAR VectorBuffer : Byte17ArrayType);
FUNCTION GetVolumeInformation (ConnectionID : WORD; VolumeNumber : BYTE; StructureSize : WORD;
VAR VolumeStatistics : Volume_Stats) : WORD;
FUNCTION GetVolumeInfoWithHandle (DirectoryHandle : BYTE; VAR VolumeName : VolumeNameType;
VAR TotalBlocks, SectorsPerBlock, AvailableBlocks,
TotalDirectorySlots, AvailableDirectorySlots,
VolumeIsRemovable : WORD) : WORD;
FUNCTION GetVolumeInfoWithNumber (VolumeNumber : BYTE; VAR VolumeName : VolumeNameType;
VAR TotalBlocks, SectorsPerBlock, AvailableBlocks,
TotalDirectorySlots, AvailableDirectorySlots,
VolumeIsRemovable : WORD) : WORD;
FUNCTION GetVolumeName (VolumeNumber : BYTE; VAR VolumeName : VolumeNameType) : WORD;
FUNCTION GetVolumeNumber (VolumeName : VolumeNameType; VAR VolumeNumber : BYTE) : WORD;
FUNCTION GetVolUsage (ConnectionID : WORD; VolumeNumber : BYTE;
VAR VolumeUsage : NWVol_Usage) : WORD;
FUNCTION IsSearchDrive (DriveLetter : CHAR) : WORD;
FUNCTION MapV2TrusteeRightsToV3 (TrusteeRights : BYTE) : LONGINT;
FUNCTION MapV3TrusteeRightsToV2 (TrusteeRights : LONGINT) : BYTE;
FUNCTION ModifyMaximumRightsMask (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
RevokeRightsMask, GrantRightsMask : BYTE) : WORD;
FUNCTION RenameDirectory (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
NewDirectoryName : DirectoryNameType) : WORD;
FUNCTION RestoreDirectoryHandle (SaveBuffer : Byte14ArrayType; VAR NewDirectoryHandle,
EffectiveRightsMask : BYTE) : WORD;
FUNCTION SaveDirectoryHandle (DirectoryHandle : BYTE; VAR SaveBuffer : Byte14ArrayType) : WORD;
FUNCTION ScanBinderyObjectTrusteePaths (ObjectID : OT_BinderyID; VolumeNumber : BYTE;
VAR SequenceNumber, TrusteeAccessMask : WORD;
VAR TrusteePathName : PathNameType) : WORD;
FUNCTION ScanDirectoryForTrustees (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
VAR SequenceNumber : WORD; VAR DirectoryName : DirectoryNameType;
VAR CreationDateAndTime : Byte4ArrayType; VAR OwnerID : OT_BinderyID;
VAR TrusteeIDs : Longint5ArrayType; VAR TrusteeRights : Byte5ArrayType) : WORD;
FUNCTION ScanDirectoryInformation (DirectoryHandle : BYTE; SearchDirectoryPath : PathNameType;
VAR SequenceNumber : WORD; VAR DirectoryName : DirectoryNameType;
VAR CreationDateAndTime : Byte4ArrayType; VAR OwnerID : OT_BinderyID;
VAR MaximumRightsMask : BYTE) : WORD;
FUNCTION ScanDirEntry (ConnectionID : WORD; DirectoryHandle : BYTE; SearchPath : PathNameType;
SearchAttributes : BYTE; VAR Sequence : LONGINT;
VAR DirectoryEntry : NWDir_Entry) : WORD;
FUNCTION ScanDirRestrictions (ConnectionID : WORD; DirectoryHandle : BYTE; VAR OutBuffer;
NumberOfStructuresToReturn : BYTE) : WORD;
FUNCTION SetDirectoryHandle (SourceDirectoryHandle : BYTE; SourceDirectoryPath : PathNameType;
TargetDirectoryHandle : BYTE) : WORD;
FUNCTION SetDirectoryInformation (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
NewCreationDateAndTime : Byte4ArrayType;
NewOwnerObjectID : OT_BinderyID; NewRightsMask : BYTE) : WORD;
FUNCTION SetDirRestriction (ConnectionID : WORD; DirectoryHandle : BYTE;
Restriction : LONGINT) : WORD;
PROCEDURE SetSearchDriveVector (VAR VectorBuffer : Byte17ArrayType);
FUNCTION SetVolRestriction (ConnectionID : WORD; VolumeNumber : BYTE; ObjectID : OT_BinderyID;
Restriction : LONGINT) : WORD;
DESTRUCTOR Done; VIRTUAL;
END;